home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / ClearWin.mod < prev    next >
Text File  |  1993-08-19  |  216b  |  9 lines
  1.     /* ------ Clear contents of inner window ------ */
  2.     ClearWin:
  3.      if GetClip('inner_open') = '1' then do
  4.        call SetAPen(HO1,0)
  5.        call BackFill(HO1)
  6.        call SetAPen(HO1,1)
  7.        end
  8.      return
  9.